home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Low Level Languages / PCLOGO / LOGO / MUSIC.LG_ / MUSIC.LG
Encoding:
Text File  |  1994-05-22  |  4.9 KB  |  151 lines
  1. TO PARTITA.IN.E
  2.     PLAY [R T200]
  3.     ONE
  4.     TWO
  5.     THREE
  6. END
  7.  
  8. TO ONE
  9.     PLAY [L8 E D#]
  10.     PLAY [L4 E OB B G# B]
  11.     PLAY [L8 E F# E D#]
  12.     PLAY [L4 E OB B G# B]
  13.     REPEAT 2 [PLAY [L8 E B F# B G# B A B G# B F# B E O# E D# C# OB B O# E D# C# OB B A G# F#]]
  14.     PLAY [E F# G# A B O# C# D# E F# G# A F#]
  15.     PLAY [G# B E F# G# A B O# C# D# E C# D#]
  16.     PLAY [E OB B A B G# B A B G# B F# B]
  17.     PLAY [E O# E D# C# OB B E O# C# OB E B E A E]
  18.     PLAY [G# B F# B G# B A B G# B F# B]
  19.     PLAY [E O# E D# C# OB B E O# C# OB E B E A E]
  20.     REPEAT 2 [PLAY [G# E E E D# E E E F# E D# E E E G# E F# E G# E A E F# E]]
  21. END
  22.  
  23. TO TWO
  24.     REPEAT 3 [PLAY [G# E G# E]]
  25.     REPEAT 3 [PLAY [G# E G# D#]]
  26.     REPEAT 3 [PLAY [G# E G# D]]
  27.     REPEAT 3 [PLAY [A E A C#]]
  28.     PLAY [A E A OB B]
  29.     REPEAT 2 [PLAY [O# A E A OB B]]
  30.     REPEAT 3 [PLAY [O# G# E G# OB B]]
  31.     REPEAT 3 [PLAY [O# G# E G# OB A]]
  32.     REPEAT 3 [PLAY [O# F# E F# OB A]]
  33.     REPEAT 3 [PLAY [O# F# E F# OB G#]]
  34.     REPEAT 3 [PLAY [O# E E E OB G#]]
  35.     REPEAT 3 [PLAY [O# E E E OB F#]]
  36.     REPEAT 3 [PLAY [O# D# E D# OB F#]]
  37. END
  38.  
  39. TO THREE
  40.     PLAY [E F# E F# G# B E F# G# B E F#]
  41.     PLAY [G# A G# A B O# E OB G# A B O# E OB G# A]
  42.     PLAY [B O# C# OB B O# C# D G# OB B O# C# D G# OB B O# C#]
  43.     PLAY [D B G# E D OB B G# E D C# D OB B]
  44.     PLAY [O# C# D# C# D# F G# C# D# F G# C# D#]
  45.     PLAY [F F# F F# G# O# C# OB F F# G# O# C# OB F F#]
  46.     PLAY [G# A G# A B O# F OB G# A B O# F OB G# A]
  47.     PLAY [B O# G# F C# B G# A F# F G# C# OB B]
  48.     PLAY [A O# C# OB A F# O# F# D# E C# C D# OB G# F#]
  49.     PLAY [E G# E C# E G# O# C# OB G# O# E C# G# C#]
  50.     PLAY [C D# C OB G# O# G# G G# G G# D# E C#]
  51.     PLAY [C D# C OB G# O# F# F F# F F# D# E C#]
  52.     PLAY [C D# C OB G# A G# A G# A D# E C#]
  53.     PLAY [C F# C# F# D# F# C# F# C F# D# F#]
  54.     PLAY [OB G# O# F# O# D# OB F# O# C OB F# O# D# OB F# O# C OB F# O# D# OB F#]
  55.     PLAY [OB G# O# E O# C# OB E O# E OB E O# C# OB E O# E OB E O# C# OB E]
  56.     PLAY [OB G# O# F# O# D# OB F# O# C OB F# O# D# OB F# O# C OB F# O# D# OB F#]
  57.     PLAY [OB G# O# E O# C# OB E O# E OB E O# C# OB E O# E OB E O# C# OB E]
  58.     REPEAT 2 [PLAY [OB G# O# G O# C# OB G O# E OB G O# C# OB G O# E OB G O# C# OB G]]
  59.     PLAY [OB G# O# G# O# C# OB G# O# D# OB G# O# C# OB G# O# D# OB G# O# C# OB G#]
  60.     PLAY [OB G# O# F# O# C OB F# O# D# OB F# O# C OB F# O# D# OB F# O# C OB F#]
  61.     PLAY [L1 C# R]
  62. END
  63.  
  64. TO SET.TEMPO :TEMPO
  65.     PLAY (LIST WORD "T :TEMPO)
  66. END
  67.  
  68. TO PLAY.RIT :LIST :TEMPO :DIM
  69.     MAKE "T :TEMPO
  70.     WHILE [NOT EMPTY? :LIST] [SET.TEMPO :T PLAY (LIST FIRST :LIST) MAKE "LIST BF :LIST MAKE "T :T \- :DIM]
  71.     SET.TEMPO :TEMPO
  72. END
  73.  
  74. TO THEME
  75.     PLAY [O4 E D# E O3 B O4 D C O3 A O1 E A O3 C E A B O1 E G# O3 E G# B O4 C O1 E A O4]
  76.     PLAY [O3 E]
  77.     PLAY [O4 E D# E D# E O3 B O4 D C O3 A O1 E A O3 C E A B O1 E G# O3 E O4 C O3 B A O1 E A]
  78.     PLAY [O3 B O4 C D E O1 G O2 C O3 G O4 F E D O1 G B O3 F O4 E D C]
  79.     PLAY.RIT [O1 E G O3 E O4 D C O3 B O1 E O2 E O3 E O4 E O3 E O4 E E O5 E O4 D# E D# E D# E] :TEMPO 1
  80.     PLAY [O4 D#]
  81.     PLAY [O4 E D# E D# E O3 B O4 D C O3 A O1 E A O3 C E A B O1 E G# O3 E G# B O4 C O1 E A O4]
  82.     PLAY [O3 E]
  83.     PLAY [O4 E D# E D# E O3 B O4 D C O3 A O1 E A O3 C E A B O1 E G# O3 E O4 C O3 B]
  84. END
  85.  
  86. TO INTERLUDE.1
  87.     PLAY [A O1 E A S5]
  88.     PLAY [O3 E F G O3 [F A O4 4C] F. L32 E L8 E D L16 Bb. 32A A G F E D C O3 8Bb 8A L32 A G A B]
  89.     PLAY [L16 O4 C O1 G O2 C O1 G O4 D D# E O1 G O2 C O4 E F O3 A O4 C O2 E O1 G O2 E O4 D. O3 32B]
  90.     REPEAT 2 [PLAY [L32 O4 C G O3 G O4 G O3 A O4 G O3 B O4 G C G D G E G O5 C O4 B A G F E D G F D]]
  91.     PLAY [E F E D# E O3 B O4 E D E O3 B O4 E D L8 E.]
  92.     PLAY.RIT [L16 O3 B O4 E D# L8 E. L16 O3 B O4 E D# E D# E D# E D#] :TEMPO 1
  93. END
  94.  
  95. TO CRESCENDO
  96.     PLAY [L16 A S10 O1 A A A A A]
  97.     PLAY [[O3 E G Bb O4 C#] O1 A A A A A]
  98.     PLAY [[O3 F A O4 D] O1 A A A O4 E F]
  99.     PLAY [[O3 G# O4 D F] O1 A A A [O3 G# O4 D F] O1 A]
  100.     PLAY [[O3 A O4 C E] O1 A A A A A]
  101.     PLAY [[O3 F O4 D] O1 D D D O4 C O3 B]
  102.     PLAY [[C F# A] O1 D# D# D# O3 [C A] O1 D#]
  103.     PLAY [[O3 C A] O1 E [O3 E O4 C] O1 E [O3 D B] O1 G#]
  104.     PLAY [[O3 C A] O1 A A A A A]
  105.     PLAY [[O3 E G Bb O4 C#] O1 A A A A A]
  106.     PLAY [[O3 F A O4 D] O1 A A A O4 E F]
  107.     PLAY [[O3 G# O4 D F] O1 A A A [O3 G# O4 D F] O1 A]
  108.     PLAY [[O4 D F] O1 Bb Bb Bb Bb Bb]
  109.     PLAY [[O3 G O4 Eb] O1 Bb Bb Bb O4 D C]
  110.     PLAY [[O3 D F Bb] O1 Bb Bb Bb [O3 D F A] O1 Bb]
  111.     PLAY [[O3 D F G#] O1 B B B [O3 D F G#] O1 B]
  112.     PLAY [[O2 C O3 C E 4A] 8P]
  113.     PLAY [[O2 E G O3 D E 8B] 4P]
  114. END
  115.  
  116. TO INTERLUDE.2
  117.     PLAY [S0 O2 A O3 C E A O4 C E D C O3 B A O4 C E A O5 C E D C O4 B]
  118.     PLAY [A O5 C E A O6 C E D C O5 B Bb A G# G F# F E D# D]
  119.     PLAY.RIT [C# C O4 B Bb A G# G F# F] :TEMPO 1
  120. END
  121.  
  122. TO CODA
  123.     PLAY [[O0 A C E O1 A C E O2 A C E O3 2A] R]
  124. END
  125.  
  126. NOCASE
  127.  
  128. TO FOR.ELISE
  129.     MAKE "TEMPO 70
  130.     PLAY [R] SET.TEMPO :TEMPO
  131.     PLAY [L16 S0]
  132.     PLAY [O4 E D#]
  133.     THEME
  134.     INTERLUDE.1
  135.     THEME
  136.     CRESCENDO
  137.     INTERLUDE.2
  138.     THEME
  139.     CODA
  140. END
  141.  
  142. CASE
  143. MAKE "TEMPO 70
  144. MAKE "T 38
  145.  
  146. TS CT
  147. PRINT [THE PROCEDURES IN THIS FILE WILL PLAY \"PARTITA IN E\" BY BACH]
  148. PRINT [AND \"FOR ELISE\" BY BEETHOVEN]
  149. PRINT [TO PLAY THE PARTITA, TYPE PARTITA.IN.E]
  150. PRINT [TO PLAY FOR ELISE, TYPE FOR.ELISE]
  151.